home *** CD-ROM | disk | FTP | other *** search
- On Error Resume Next
- ' Declare variables
- Dim WshShell
-
- ' Create shell object
- Set WshShell = WScript.CreateObject("WScript.Shell")
-
- ' Delete registry key
- WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Scheduled Scans"
-
- ' Stop Scheduled Scan Service (if still started)
- WshShell.Run "cmd.exe /C net stop lnss_sscans", 0, true
-
- ' UnInstall Scheduled Scan Service
- WshShell.Run "sscansvc.exe /UNINSTALL /SILENT", 0, true
-
-
-
-
-